home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tex / strunk / disk_4 / m_emacs.lzh / bin / emacs.rc < prev    next >
Encoding:
Text File  |  1990-10-25  |  6.6 KB  |  267 lines
  1. ;    EMACS.RC:    Startup file for MicroEMACS 3.9cs
  2. ;
  3. ;            This file is executed every time the
  4. ;            editor is entered, but only if it can
  5. ;            be found on '.' or '$(PATH)'.
  6. ;
  7.  
  8. ; if you want the 40 lines mode, then uncomment this line:
  9. ;    set $sres DENSE
  10.  
  11. set $discmd FALSE
  12. write-message "[Setting up....]"
  13.  
  14. ; Micro emacs now simulates tabs with blanks in some files (.c, .asm etc.)
  15. ; If you don't like this, then press "M-0 TAB" when inside the desired buffer.
  16.  
  17. ; have fun with the Help and Keypad keys. They are all harmless functions.
  18.  
  19. ;    ***** Rebind the Function keys
  20. ;
  21. ;    Since this are the standard settings on Atari, they need not be set !
  22. ;    They just give an impression on the syntax needed.
  23. ;
  24. ;    The bind-fn-key command is new by CS.
  25. ;    Non-cs versions must use bind-to-key.
  26. ;
  27. ;bind-fn-key kill-to-end-of-line    f1        ; non-shift f1
  28. ;bind-fn-key yank            f2
  29. ;bind-fn-key search-forward        f3
  30. ;bind-fn-key query-replace-string    f4
  31. ;bind-fn-key search-reverse        f5
  32. ;bind-fn-key execute-file        f6
  33. ;bind-fn-key next-buffer        f7
  34. ;bind-fn-key find-file            f8
  35. ;bind-fn-key save-file            f9
  36. ;bind-fn-key quick-exit            f10
  37. ;bind-fn-key help            S-F1        ; Shift-F1
  38.  
  39. ; Cursor-Block:
  40. ;bind-fn-key help            help
  41. ;bind-fn-key exit-emacs            undo        ; undo
  42. ;bind-fn-key previous-page        pgup        ; insert key on Atari
  43. ;bind-fn-key next-page            pgdown        ; clr/home key on Atari
  44.  
  45. ; Mouse
  46. ;bind-fn-key set-mark            leftmouse
  47. ;bind-fn-key copy-region        rightmouse
  48.  
  49. ; Keypad
  50. ;bind-fn-key move-window-up        K(
  51. ;bind-fn-key move-window-down        K)
  52. ;bind-fn-key split-current-window    K/
  53. ;bind-fn-key delete-other-windows    K*
  54. ;bind-fn-key previous-window        K-
  55. ;bind-fn-key next-window        K+
  56. ;bind-fn-key beginning-of-file        K7
  57. ;bind-fn-key end-of-file        K9
  58. ;bind-fn-key previous-word        K4
  59. ;bind-fn-key redraw-display        K5
  60. ;bind-fn-key next-word            K6
  61. ;bind-fn-key beginning-of-line        K1
  62. ;bind-fn-key end-of-line        K3
  63. ;bind-fn-key execute-macro        K0
  64. ;bind-fn-key goto-line            K.
  65.  
  66. ;; >>>> note: you get the name of a key by pressing   help c <key>
  67.  
  68. ;    These are not standard:
  69.  
  70. bind-to-key apropos            FNV        ; S-F3
  71. bind-to-key help            FNW        ; S-F4
  72. bind-to-key fill-paragraph        FNX        ; S-F5
  73.  
  74. ;    set screen colors
  75. add-global-mode "White"        ; foreground
  76. add-global-mode "blue"        ; background
  77. add-mode "White"        ; foreground
  78. add-mode "blue"            ; background
  79.  
  80. ;    toggle function key window off
  81. 1 store-macro
  82.     save-window
  83.     1 next-window
  84.     !if &sequal "Function Keys" $cbufname
  85.         delete-window
  86.     !endif
  87.     bind-to-key execute-macro-14 FNT    ; S-F1
  88. !force    restore-window
  89.     write-message "[Function key window OFF]"
  90. !endm
  91.  
  92. ;    toggle function key window back on
  93. 14 store-macro
  94.     1 next-window
  95.     !if &sequal $cbufname "emacs.hlp"
  96.         execute-macro-11
  97.     !endif
  98.     !if ¬ &sequal $cbufname "Function Keys"
  99.         1 split-current-window
  100.         select-buffer "Function Keys"
  101.         add-mode "red"
  102. !force        6 resize-window
  103.         beginning-of-file
  104.     !endif
  105.     bind-to-key execute-macro-1 FNT
  106.     2 next-window
  107.     write-message "[Function key window ON]"
  108. !endm
  109.  
  110. ;    Enter Help
  111. 2 store-macro
  112.     1 next-window        ;Make sure the function key window isn't up!
  113.     !if &sequal $cbufname "Function Keys"
  114.         delete-window
  115.         bind-to-key execute-macro-14 FNT
  116.     !endif
  117.     help
  118.     8 resize-window
  119.     bind-to-key execute-macro-12 FNh
  120.     bind-to-key execute-macro-13 FNn
  121.     bind-to-key execute-macro-11 FNU
  122.     bind-to-key execute-macro-15 ^XO
  123.     bind-to-key execute-macro-15 ^XP
  124.     bind-to-key execute-macro-15 FNu
  125.     add-mode "red"
  126.     beginning-of-file
  127.     2 forward-character
  128.     clear-message-line
  129. !endm
  130.  
  131. ;    Exit Help
  132. 11 store-macro
  133.     bind-to-key previous-page FNh
  134.     bind-to-key next-page FNn
  135.     bind-to-key execute-macro-2 FNU
  136.     bind-to-key next-window ^XO
  137.     bind-to-key previous-window ^XP
  138.     bind-to-key next-window FNu
  139.     delete-window
  140.     clear-message-line
  141. !endm
  142.  
  143. ;    don't allow these commands from within the HELP screen
  144. 15    store-macro
  145.     write-message "[Use S-F2 to exit HELP (with SHIFT)]!!"
  146. !endm
  147.  
  148. ;    last help page
  149. 12 store-macro
  150.     beginning-of-line
  151.     search-reverse "=>"
  152.     1 redraw-display
  153. !endm
  154.  
  155. ;    next help page
  156. 13 store-macro
  157.     beginning-of-line
  158.     2 forward-character
  159.     search-forward "=>"
  160.     1 redraw-display
  161. !endm
  162.  
  163. ;    reformat indented paragraph
  164.  
  165. 6 store-macro
  166.     write-message "                    [Fixing paragraph]"
  167.     kill-region
  168.     2 split-current-window
  169.     select-buffer "[temp]"
  170.     yank
  171.     beginning-of-file
  172.     replace-string "~n    " "~n"
  173.     write-message "                    [Fixing paragraph]"
  174.     66 set-fill-column
  175.     write-message "                    [Fixing paragraph]"
  176.     fill-paragraph
  177.     77 set-fill-column
  178.     beginning-of-file
  179.     handle-tab
  180.     replace-string ~n "~n    "
  181.     write-message "                    [Fixing paragraph]"
  182.     end-of-file
  183.     2 delete-previous-character
  184.     beginning-of-file
  185.     set-mark
  186.     write-message "                    [Fixing paragraph]"
  187.     end-of-file
  188.     kill-region
  189.     unmark-buffer
  190.     delete-window
  191.     yank
  192.     delete-buffer "[temp]"
  193.     write-message "                    [Fixed paragraph]"
  194. !endm
  195.  
  196. ;    indent region
  197.  
  198. 7 store-macro
  199.     write-message "                    [Indenting region]"
  200.     kill-region
  201.     2 split-current-window
  202.     select-buffer "[temp]"
  203.     yank
  204.     beginning-of-file
  205.     handle-tab
  206.     replace-string "~n" "~n    "
  207.     end-of-file
  208.     4 delete-previous-character
  209.     beginning-of-file
  210.     set-mark
  211.     write-message "                    [Indenting region]"
  212.     end-of-file
  213.     kill-region
  214.     unmark-buffer
  215.     delete-window
  216.     yank
  217.     delete-buffer "[temp]"
  218.     write-message "                    [Region Indented]"
  219. !endm
  220.  
  221. ;    undent region
  222.  
  223. 8 store-macro
  224.     write-message "                    [Undenting region]"
  225.     kill-region
  226.     2 split-current-window
  227.     select-buffer "[temp]"
  228.     yank
  229.     beginning-of-file
  230.     delete-next-character
  231.     replace-string "~n    " "~n"
  232.     end-of-file
  233.     2 delete-previous-character
  234.     beginning-of-file
  235.     set-mark
  236.     write-message "                    [Undenting region]"
  237.     end-of-file
  238.     kill-region
  239.     unmark-buffer
  240.     delete-window
  241.     yank
  242.     delete-buffer "[temp]"
  243.     write-message "                    [Region undented]"
  244. !endm
  245.  
  246. ;
  247. ;    bring up the function key window
  248.  
  249.     1 split-current-window
  250.     select-buffer "Function Keys"
  251.     add-mode "red"
  252.     6 resize-window
  253.     insert-string "f1 kill line    f6 exec file  | F1 toggle function list F7 indent region~n"
  254.     insert-string "f2 yank         f7 select buf | F2 toggle help file     F8 undent region~n"
  255.     insert-string "f3 search       f8 find file  | F3 find command/apropos ^X= where am I~n"
  256.     insert-string "f4 replace      f9 save file  | F4 general HELP !       M-G goto line (ESC-G)~n"
  257.     insert-string "f5 search back f10 exit emacs | F5 reformat paragraph   M-< start of file~n"
  258.     insert-string "^G cancel command (Control+G) | F6 ref undented region  M-O toggle OVER mode~n"
  259.     beginning-of-file
  260.     unmark-buffer
  261.     add-mode "view"
  262.     next-window
  263.  
  264. set $discmd TRUE
  265.  
  266. ; -eof-
  267.